home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / toolbox / flipud < prev    next >
Text File  |  1994-02-21  |  439b  |  24 lines
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    flipud ( A )
  4.  
  5. //  Description:
  6.  
  7. //  flipud flips all the elements of a vector (or matrix) from top to
  8. //  bottom.
  9.  
  10. //-------------------------------------------------------------------//
  11.  
  12. flipud = function ( A )
  13. {
  14.   local (B);
  15.  
  16.   if (class (A) != "num") 
  17.   {
  18.     error("flipud: Only matrix arguments supported");
  19.   }
  20.  
  21.   B = A[A.nr:1:-1;];
  22.   return B;
  23. };
  24.